home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / valid / locale_VALID.e next >
Encoding:
Text File  |  1996-07-31  |  1.4 KB  |  55 lines
  1. /*
  2. *  This file was created automatically by `FlexCat 1.5'
  3. *  from "valid.cd".
  4. *  Do not edit by hand!
  5. *  NIE ROZPOWSZECHNIAÊ - WERSJA PRYWATNA  (c)Piotr Gapiïski (14.04.96)
  6. *  _UWAGA_
  7. *  Nazwy identyfikatorow MUSZ byê zapisane DUÛYMI literami !
  8. */
  9.  
  10. OPT MODULE
  11. OPT OSVERSION=37,PREPROCESS,EXPORT
  12.  
  13. MODULE 'libraries/locale','locale',
  14.        'utility/tagitem'
  15.  
  16. CONST MSG_ERROR_VOLUMES = 0
  17. CONST MSG_ERROR_ACCESS = 1
  18. CONST MSG_VOLUME_VALIDATING = 2
  19. CONST MSG_VOLUME_VALIDATED = 3
  20.  
  21. OBJECT catalog_VALID
  22.   cat: PTR TO catalog
  23.   strs[4]:ARRAY OF LONG
  24. ENDOBJECT
  25.  
  26. PROC create() OF catalog_VALID
  27.   self.cat:=NIL
  28.   self.strs[0]:='volumes list is locked, sorry...\n'
  29.   self.strs[1]:='access error (volume "\s")\n'
  30.   self.strs[2]:='validating (please wait)...'
  31.   self.strs[3]:='OK\n'
  32. ENDPROC
  33.  
  34. PROC getstr(id) OF catalog_VALID
  35.   RETURN (IF self.cat THEN GetCatalogStr(self.cat,
  36.            id,self.strs[id]) ELSE self.strs[id])
  37. ENDPROC
  38. PROC getStr(id) OF catalog_VALID IS self.getstr(id)
  39.  
  40. PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR) OF catalog_VALID
  41.   IF localebase=NIL THEN RETURN FALSE
  42.   self.close()
  43.   self.cat:=OpenCatalogA(loc,'valid.catalog',
  44.        [OC_BUILTINLANGUAGE,'english',
  45.        IF language THEN OC_LANGUAGE ELSE TAG_IGNORE,language,
  46.        OC_VERSION,2,TAG_DONE])
  47. ENDPROC self.cat<>NIL
  48.  
  49. PROC close() OF catalog_VALID
  50.   IF (localebase) AND (self.cat) THEN CloseCatalog(self.cat)
  51.   self.cat:=NIL
  52. ENDPROC
  53.  
  54. PROC end() OF catalog_VALID IS self.close()
  55.